home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD024d.dsk / WF.bas < prev   
BASIC Source File  |  2003-06-12  |  5KB  |  78 lines
  1. 10  POKE 49168,0
  2. 100  LOMEM: 16384: HOME : VTAB 11: PRINT  TAB( 9)"LOWER TEXT BY JIM WEILER": PRINT : PRINT  TAB( 9);"MUSIC FROM ELECTRIC DUET": PRINT  TAB( 15)"BY PAUL LUTUS": PRINT "<CTRL-D>BRUN LOWER TEXT": ONERR  GOTO 120
  3. 110  PRINT "<CTRL-D>BLOAD PLAYER":MU = 1: PRINT : PRINT "<CTRL-D>BLOAD LOWER MUSIC,A$9000": HIMEM: 36864
  4. 120  POKE 216,0: & S: SCALE= 1: ROT= 0:PG = 0:KB = 49152:KS = 49168: DIM BK$(1):BK$(0) = "L)ight":BK$(1) = "D)ark":B1$ = "<ESC> to quit        Select ":B2$ = "":B4$ = "Page  ":B3$ = "F)wd -->  <-- B)ack": DIM MU$(1):MU$(0) = "M)usic":MU$(1) = "S)ilence"
  5. 130 BK = 1: DIM F$(40),LI$(400)
  6. 131 FI$ = "THE GRAPHICS MAGICIAN": GOTO 210
  7. 140  TEXT : HOME : PRINT  TAB( 9)"SOFTDISK "F$(0): PRINT : PRINT "INDEX": GOSUB 400: VTAB 20: HTAB 6: PRINT "": FOR CO = 1 TO 39: PRINT "-";: NEXT : PRINT : VTAB 4: FOR CO = 1 TO 39: PRINT "-";: NEXT : PRINT : VTAB 24: PRINT "   F)WD -> <- B)ACK : <ESC> TO QUIT";
  8. 150  VTAB 20: HTAB 5: GET K$: PRINT K$;: VTAB 21: HTAB 5: IF  VAL(K$) >L  THEN  PRINT "<CTRL-G>";: GOTO 150
  9. 160  IF K$ = "F"  OR K$ =  CHR$(21)  THEN  IF P +7 < = (A)  THEN P = P +7: GOSUB 400: GOTO 150
  10. 170  IF K$ = "B"  OR K$ =  CHR$(8)  THEN  IF P  THEN P = P -7: GOSUB 400: GOTO 150
  11. 180  IF  VAL(K$)  THEN FI$ = F$(P + VAL(K$)): GOTO 210
  12. 190  IF K$ =  CHR$(27)  THEN  PRINT : PRINT "<CTRL-D>RUN KICK.IT.OFF"
  13. 200  PRINT "<CTRL-G>";: GOTO 150
  14. 210 LI = 1: GOSUB 640: IF MU  THEN  POKE 30,0: POKE 31,144
  15. 220  GOSUB 420: GOSUB 660
  16. 230  GOSUB 430
  17. 235  IF   NOT I  THEN 320
  18. 240  IF I = 1  THEN  GOSUB 670: GOTO 230
  19. 250  IF I = 2  THEN  GOSUB 690: GOTO 230
  20. 260  IF I = 3  THEN  IF BK  THEN BK = 0: GOTO 230
  21. 270  IF I = 4  THEN  IF   NOT BK  THEN BK = 1: GOTO 230
  22. 280  IF I = 5  THEN 140
  23. 290  IF I = 6  THEN  GOSUB 710: GOTO 230
  24. 300  IF I = 7  THEN  GOSUB 770: GOTO 230
  25. 310  IF (I = 8)  OR (I = 9)  THEN  GOSUB 530:MU =   NOT MU: GOSUB 530
  26. 320  IF MU  THEN  & P: IF  PEEK(KB) <128  THEN  POKE 30,0: POKE 31,144: GOTO 320
  27. 330  IF   NOT MU  THEN  WAIT KB,128
  28. 340 KD =  PEEK(KB) -128: IF KD > = 0  THEN  GOSUB 540
  29. 350  IF   NOT I  THEN 320
  30. 360  GOTO 240
  31. 370  PRINT "<CTRL-D>OPEN FEATURES": PRINT "<CTRL-D>READ FEATURES":A = 0
  32. 380  INPUT F$(A): IF F$(A) < >"!"  THEN A = A +1: GOTO 380
  33. 390  PRINT : PRINT "<CTRL-D>CLOSE": RETURN 
  34. 400  FOR B = 1 TO 7: HTAB 5: VTAB B *2 +4: IF B +P <(A)  THEN  PRINT B"   "F$(B +P);:L = B
  35. 410  CALL  -868: NEXT : VTAB 3: HTAB 27: PRINT "PAGE "P/7 +1" OF " INT(A/7 +1): RETURN 
  36. 420  POKE 230,PG *32 +32: RETURN 
  37. 430  REM 
  38. 435 LR = 0: GOSUB 420: IF BK  THEN  & W: &  SQRB
  39. 440  IF   NOT BK  THEN  & B: &  SQRW
  40. 450 V% = 3: &  PRINT TI$,V%:V% = V% +12: HCOLOR= 5: HPLOT 0,11 TO 279,11:I = 0: FOR CO = LI TO LI +11: &  PRINT LI$(CO),V%:V% = V% +12: GOSUB 500: IF DI < >PG  AND I = 1  THEN I = 0:DI = PG: GOSUB 660
  41. 460  IF I  THEN CO = LI +11
  42. 470  NEXT CO: IF I  THEN 490
  43. 480  GOSUB 530:LR =   NOT I
  44. 490  RETURN 
  45. 500 KD =  PEEK(KB): IF KD <128  THEN 520
  46. 510  POKE KS,0:KD = KD -128: GOSUB 540
  47. 520  RETURN 
  48. 530 PP$ =  RIGHT$("  " + STR$( INT(LI/12) +1),3):L1$ = B1$ +BK$(BK) +B2$:L2$ = B3$ +"         " +MU$(MU):L3$ = B4$ +PP$ +" of " +NL$ +"            H)ardcopy":V% = 163: &  PRINT L1$,V%:V% = V% +10: &  PRINT L2$,V%:V% = V% +10: &  PRINT L3$,V%: RETURN 
  49. 540 I = 0: IF KD = 21  OR KD = 70  THEN I = 1
  50. 550  IF KD = 8  OR KD = 66  THEN I = 2
  51. 560  IF KD = 68  THEN  IF BK  THEN I = 3
  52. 570  IF KD = 76  THEN  IF   NOT BK  THEN I = 4
  53. 580  IF KD = 27  THEN  PRINT : PRINT  CHR$(4)"RUNHELLO"
  54. 590  IF (KD >47)  AND (KD <58)  THEN I = 6
  55. 600  IF KD = 83  THEN  IF MU  THEN I = 8
  56. 610  IF KD = 77  THEN  IF   NOT MU  THEN I = 9
  57. 620  IF KD = 72  THEN I = 7
  58. 630  POKE KS,0: RETURN 
  59. 640  VTAB  VAL(K$) *2 +4: HTAB 1: FLASH : PRINT "LOADING";: NORMAL : VTAB 23: PRINT : PRINT "<CTRL-D>OPEN"FI$: PRINT "<CTRL-D>READ"FI$: FOR CO = 0 TO 400: &  INPUT LI$(CO): IF LI$(CO) = "!"  THEN NL = CO:CO = 400: FOR XX = NL TO CO:LI$(XX) = "": NEXT :NL = NL -1
  60. 650  NEXT : PRINT : PRINT "<CTRL-D>CLOSE":NL$ =  RIGHT$("  " + STR$( INT((NL -1)/12) +1),3): HOME :TI$ = FI$: RETURN 
  61. 660  POKE 49232,0: POKE 49234,0: POKE 49239,0: POKE 49236 +DI,0: RETURN 
  62. 670 LI = LI +12: IF LI >NL  THEN LI = LI -12: GOSUB 810
  63. 680  RETURN 
  64. 690 LI = LI -12: IF LI <1  THEN LI = 1: GOSUB 820
  65. 700  RETURN 
  66. 710 V% = 183:S$ = "         ":K$ =  CHR$(KD):T$ =  RIGHT$(S$ +PP$,9): &  PRINT T$,V%:T$ = S$
  67. 720 T$ =  RIGHT$(T$ +K$,3):PP$ =  RIGHT$(S$ +T$,9): &  PRINT PP$,V%: GET K$: IF K$ <":"  AND K$ >"/"  THEN  &  PRINT PP$,V%: GOTO 720
  68. 730  IF K$ < > CHR$(13)  THEN  RETURN 
  69. 740 PP =  VAL(PP$):MP = (NL -1)/12 +1: IF PP >MP  THEN PP =  INT(MP)
  70. 750 LI = PP *12 -12: IF LI <1  THEN LI = 1
  71. 760  RETURN 
  72. 770  & W:M$ = "Turn on your printer and press <RETURN>":V% = 90: &  PRINT M$,V%:V% = V% +14:M$ = "   Press any key to interrupt": &  PRINT M$,V%: GET K$: IF K$ < > CHR$(13)  THEN 800
  73. 780  PRINT : PRINT "<CTRL-D>PR#1": FOR CO = 1 TO NL: PRINT LI$(CO): IF  PEEK(KB) >127  THEN  POKE KS,0:CO = NL: GOTO 790
  74. 790  NEXT : PRINT : PRINT "<CTRL-D>PR#0"
  75. 800  RETURN 
  76. 810 LP$ = "                              Last page":V% = 3: &  PRINT LP$,V%: GOSUB 830: PRINT "<CTRL-G>";: RETURN 
  77. 820 LP$ = "                             First page":V% = 3: &  PRINT LP$,V%: GOSUB 830: PRINT "<CTRL-G>";: RETURN 
  78. 830  FOR FW = 1 TO 400: NEXT : RETURN